setdisplay(240,320,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
for f=1 to 20
prints("sqr("+str$(f)+")="+str$(sqr(f)))
next
waitkey